home *** CD-ROM | disk | FTP | other *** search
/ Comix Games / Comix Games.iso / waldopc / install.exe / _SETUP.1 / WALDOPC.EXE / WALDOPC.DXR / 00001.ls next >
Encoding:
Text File  |  1996-06-11  |  630 b   |  21 lines
  1. on CheckKey
  2.   global CurrentField
  3.   set temp to the key
  4.   if (charToNum(temp) > 64) and (charToNum(temp) < 91) then
  5.     put temp after field CurrentField
  6.   end if
  7.   if charToNum(temp) = 28 then
  8.     delete char length(field CurrentField) of field CurrentField
  9.   end if
  10.   if charToNum(temp) = 8 then
  11.     delete char length(field CurrentField) of field CurrentField
  12.   end if
  13.   if (charToNum(temp) > 96) and (charToNum(temp) < 123) then
  14.     put numToChar(charToNum(temp) - 32) after field CurrentField
  15.   end if
  16.   if (charToNum(temp) = 13) and (length(field CurrentField) > 0) then
  17.     go(the frame + 1)
  18.   end if
  19.   dontPassEvent()
  20. end
  21.